home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / BORDER.INC < prev    next >
Text File  |  1987-01-05  |  1KB  |  34 lines
  1. procedure BORDER (Surf, Color: integer);
  2.  
  3. { Draw the border of surface #Surf in color Color }
  4. var Vert:   integer;                 { vertex # being plotted }
  5.     Node1:  integer;                 { first node of line }
  6.     Node2:  integer;                 { second node of line }
  7.     Pcolor:  integer;                 { actual color used }
  8. begin
  9. {$ifdef BIGMEM}
  10. with ptrd^ do with ptre^ do with ptrh^ do
  11. begin
  12. {$endif}
  13.   { Make sure the color is legitimate }
  14.   if (Color > Ncolors) then
  15.     Pcolor := Ncolors
  16.   else
  17.     Pcolor := Color;
  18.   for Vert := 1 to Nvert[Surf]-1 do begin
  19.     Node1 := Konnec (Surf, Vert);
  20.     Node2 := Konnec (Surf, Vert+1);
  21.     gdraw (round(Xtran[Node1]), round(Ytran[Node1]),
  22.           round(Xtran[Node2]), round(Ytran[Node2]), Pcolor);
  23.   end;
  24.  
  25.   { One last draw to close the polygon }
  26.   Node1 := Konnec (Surf, Nvert[Surf]);
  27.   Node2 := Konnec (Surf, 1);
  28.   gdraw (round(Xtran[Node1]), round(Ytran[Node1]),
  29.         round(Xtran[Node2]), round(Ytran[Node2]), Pcolor);
  30. {$ifdef BIGMEM}
  31. end; {with}
  32. {$endif}
  33. end; { procedure BORDER }
  34.